﻿\ Clear stack from load-file result.

EMPTY-STACK

{ PAGE -> }

\ ------------------------------------------------------------------------
CR ." PAGE AT-XY"
\ ------------------------------------------------------------------------

: A 72 40 DO I 2  AT-XY '-' EMIT LOOP ;
: B 5 0 DO I 72 SWAP AT-XY '-' EMIT LOOP ;
{ A -> }
{ B -> }
0 20 AT-XY
